
    load("./RDataFiles/NLS.RData")
    
    method   = c("reg","ipw","b-ipw","g","tr","b-tr")
    methods = c("naive", "RDreg", "2sls", method)
    
    Round = function(x,num) sprintf(paste("%.",num,"f",sep=""), round(x,num))
    
    Results = results
    
    result.point.sd = matrix(NA, nrow(Results), 2)
    result.point.sd[,2] = apply(Results,1,function(x){
        ci = Round(quantile(x, c(0.025, 0.975)),3)
        paste("(",ci[1],",",ci[2],")",sep="")
    })
    
    result.point.sd[,1] = Round(results.point,3)
    rownames(result.point.sd) = methods
    
    result.point.sd
    
    library(xtable)
    xtable(result.point.sd)
    